2 Main Function
Playgame <- function(times, P1type, P2type){
market <- Market$new(total=100)
P1 <- Player$new(10000,10,P1type,100) #P1
P2 <- Player$new(10000,10,P2type,100) #P2
for (i in 1:market$total) {
P1$decide(market)
P2$decide(market)
if(i <= 20){
market$condition("Balance")
} else if (i <= 60){
market$condition("Bubble")
} else {
market$condition("Burst")
}
market$game(P1$decision[i],P2$decision[i])
P1$ending(market)
P2$ending(market)
}
data <- list(
market$price,
market$dprice,
P1$cash,
P1$value,
P1$asset,
P1$decision,
P2$cash,
P2$value,
P2$asset,
P2$decision
)
return(data)
}